home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / v7n13.arc / DOWNLOAD.BAS < prev    next >
BASIC Source File  |  1988-05-18  |  2KB  |  60 lines
  1.  
  2. 10 '    The following program utilizes the DOWNLOAD CHARACTER
  3. 20 '    DEFINITION function of the Epson FX-80 printer and
  4. 30 '    adds a new character to the print set.
  5. 40 '
  6. 50 '
  7. 60 '    Reset & copy standard ROM CG into Download CG:
  8. 70 '
  9. 80 LPRINT CHR$(27); "@"; CHR$(0); CHR$(0);
  10. 90 LPRINT CHR$(27); ":"; CHR$(0); CHR$(0); CHR$(0);
  11. 100 '
  12. 110 '   Download info according to page 3-38, 39 of manual:
  13. 120 '
  14. 130 '   Character #248 = Degree sign
  15. 140 '
  16. 150 LPRINT CHR$(27); "&"; CHR$(0); CHR$(248); CHR$(248);
  17. 160 LPRINT CHR$(139);
  18. 170 LPRINT CHR$(0); CHR$(96); CHR$(144); CHR$(0); CHR$(144); CHR$(96);
  19. 180 LPRINT CHR$(0); CHR$(0); CHR$(0); CHR$(0); CHR$(0); CHR$(0);
  20. 190 '
  21. 200 '   Character #241 = plus/minus
  22. 210 '
  23. 220 LPRINT CHR$(27); "&"; CHR$(0); CHR$(241); CHR$(241);
  24. 230 LPRINT CHR$(139);
  25. 240 LPRINT CHR$(0); CHR$(0); CHR$(34); CHR$(0); CHR$(34); CHR$(0);
  26. 250 LPRINT CHR$(250); CHR$(0); CHR$(34); CHR$(0); CHR$(34); CHR$(0);
  27. 260 '
  28. 270 '   Character #234 = Lower case sigma (partial derivative)
  29. 280 '
  30. 310 LPRINT CHR$(27); "&"; CHR$(0); CHR$(234); CHR$(234);
  31. 320 LPRINT CHR$(139);
  32. 330 LPRINT CHR$(0); CHR$(0); CHR$(4); CHR$(74); CHR$(144); CHR$(2);
  33. 340 LPRINT CHR$(144); CHR$(66); CHR$(60); CHR$(0); CHR$(0); CHR$(0);
  34. 350 '
  35. 360 '   Character #233 = Theta
  36. 370 '
  37. 400 LPRINT CHR$(27); "&"; CHR$(0); CHR$(233); CHR$(233);
  38. 410 LPRINT CHR$(139);
  39. 420 LPRINT CHR$(0); CHR$(0); CHR$(16); CHR$(40); CHR$(84); CHR$(130);
  40. 430 LPRINT CHR$(16); CHR$(130); CHR$(84); CHR$(40); CHR$(16); CHR$(0);
  41. 440 '
  42. 450 '   Character #251 = Delta
  43. 460 '
  44. 490 LPRINT CHR$(27); "&"; CHR$(0); CHR$(251); CHR$(251);
  45. 500 LPRINT CHR$(139);
  46. 510 LPRINT  CHR$(4); CHR$(8); CHR$(20); CHR$(32); CHR$(68);
  47. 520 LPRINT CHR$(128); CHR$(68); CHR$(32); CHR$(20); CHR$(8); CHR$(4);CHR$(0)
  48. 530 '
  49. 540 '   Character #228 = Upper case Sigma
  50. 550 '
  51. 580 LPRINT CHR$(27); "&"; CHR$(0); CHR$(228); CHR$(228);
  52. 590 LPRINT CHR$(139);
  53. 600 LPRINT  CHR$(130); CHR$(68); CHR$(130); CHR$(40); CHR$(146);CHR$(0);
  54. 610 LPRINT  CHR$(130); CHR$(0); CHR$(198); CHR$(0); CHR$(0);CHR$(0);
  55. 690 '
  56. 700 LPRINT CHR$(0); CHR$(0);
  57. 710 LPRINT CHR$(27); "%"; CHR$(1); CHR$(0);
  58. 720 END
  59.  
  60.